home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1993 September / September 93.iso / Archives / Applications / Calculators / NumberCrunch 1.41 / Number Crunch II Demo / Writing External Codes (xCOD) / FORTRAN source code / SAMPLE_XCOD.f < prev    next >
Encoding:
Text File  |  1992-09-03  |  1.4 KB  |  50 lines  |  [TEXT/MPS ]
  1. C This is FORTRAN source code which will compile into
  2. C an xCOD (eXternal CODe) resource for NumberCrunch II.
  3. C
  4. C 
  5. C After building this code resource you must install it into NumberCrunch with either ResEdit or the
  6. C Load xCOD command from inside NCII.
  7. C
  8. C In either case, an sCOD string or resource is also needed to tell NCII what the arguments to this routine are
  9. C     For this routine, an appropriate sCOD is:
  10. C
  11. C    xCOD xSAMPLE_XCODE(J:num; Bj:Array; prog Foo(K:num; Ak:array); Cj:ComplexArray), sets all of Cj[1…J] to 1 + 0i,  Bj[1…j] to 1…j, and passes a K=3 element array [3,2,1] to Foo.
  12. C
  13. C   The procedure arguments are}
  14. C           J        :   extended number}
  15. C            Bj        :   array of extended}
  16. C            foo        :   the name of another xCOD or an NCII user program
  17. C            Cj    :   an array of complex numbers, i.e. a 2J array of extended
  18. C
  19. C
  20.         subroutine SAMPLE_XCOD(zJ, Bj, Foo, Cj)
  21.         implicit extended (a-h, o-z)
  22.         dimension Bj(*), Cj(*), ArrayForFoo(3)
  23.         external Foo
  24. C
  25. C     Convert the array size to an integer.
  26.         J = zJ
  27. C
  28. C     Set the Bj array.
  29.         do i=1,J
  30.           Bj(i) = 1.0*i
  31.         end do
  32. C
  33. C     Set the (real, complex, real, complex, ...) array Cj to 1 + 0i.
  34.         do i=1,J
  35.           Cj(2*i-1) = 1.0
  36.           Cj(2*i) = 0.0
  37.         end do
  38. C
  39. C     Set up the array to pass to the program Foo.
  40.         ArrayForFoo(1) = 3.0
  41.         ArrayForFoo(2) = 2.0
  42.         ArrayForFoo(3) = 1.0
  43.         SizeForFoo = 3.0
  44. C
  45. C     Run the program Foo.
  46.         CALL FOO(SizeForFoo, ArrayForFoo)
  47. C        
  48.         return
  49.         end
  50.